home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / KTGCST.CST / 00043_Script_ScrollUp and DownScripts for skills < prev    next >
Text File  |  1998-09-21  |  1KB  |  41 lines
  1. global gButtonState
  2. -- use gButtonState list to see what is currently selected
  3. -- then set the next one up or down on
  4.  
  5. on ScrollUp
  6.   repeat with x = 25 to 30
  7.     set Hilite = getat(gButtonState,x)
  8.     if  Hilite = 2 then exit repeat
  9.   end repeat
  10.   if x = 30 then exit
  11.   setat(gbuttonState,x,0)
  12.   set the membernum of sprite x = the membernum of sprite x-1
  13.   set the blend of sprite  x = 0
  14.   set the blend of sprite x-20 = 0
  15.   set x = x+1
  16.   setat(gButtonState,x,2)
  17.   set the membernum of sprite x = the membernum of sprite x+1
  18.   set the blend of sprite x = 100
  19.   set the blend of sprite x-20 = 100  
  20.   -- loadAudioMedia(x)
  21. end
  22.  
  23.  
  24. on ScrollDown
  25.   repeat with x = 30 down to 25
  26.     set Hilite = getat(gButtonState,x)
  27.     if  Hilite = 2 then exit repeat
  28.   end repeat
  29.   if x = 25 then exit
  30.   setat(gbuttonState,x,0)
  31.   set the membernum of sprite x = the membernum of sprite x-1
  32.   set the blend of sprite  x = 0
  33.   set the blend of sprite x-20 = 0
  34.   set x = x-1
  35.   setat(gButtonState,x,2)
  36.   set the membernum of sprite x = the membernum of sprite x+1
  37.   set the blend of sprite  x = 100
  38.   set the blend of sprite x-20 = 100  
  39.   -- loadAudioMedia(x)
  40. end
  41.